home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / font_bld.zip / README < prev    next >
Text File  |  1995-04-10  |  2KB  |  48 lines
  1.     Hello !   Welcome to Font Builder program !
  2.  
  3.     This program is a small utility, which makes easier setting different
  4.     fonts in the dialog box. You can 'visualy' create font, and then paste
  5.     appropiate source code into your program.
  6.  
  7.  
  8.     Here's an example (written in Pascal OWL):
  9.  
  10.     type PMyDialog=^TMyDialog;
  11.          TMyDialog=object(TDialog)
  12.            font:HFont;                 { handle of font we want to create }
  13.            procedure SetupWindow;virtual;
  14.            destructor Done;virtual;
  15.           end;
  16.     procedure TMyDialog.SetupWindow;
  17.     begin
  18.      inherited SetupWindow;            { initialize dialog }
  19.      font:=CreateFont(...);            { create font }
  20.      { CreateFont function requires some parameters (to be exact: 14) - so
  21.        it's hard to remember what does the n-th parameter do. And you have
  22.        to recompile entire program to test every change in parameters in
  23.        that function. With this program it is very simple. You just design
  24.        font you want, then you press 'CreateFont' button - it will copy to
  25.        clipboard following text:'CreateFont( correct_parameters );', then
  26.        you may paste it into your program. Simple, isn't it? }
  27.      SendDlgItemMsg(itemID,wm_SetFont,font,0);
  28.      { send wm_SetFont message to itemID control in the dialog box to
  29.        change its font }
  30.     end;
  31.     destructor TMyDialog.Done;
  32.     begin
  33.      DeleteObject(font); { delete font - we don't need it any more }
  34.      inherited Done;
  35.     end;
  36.  
  37.  
  38.     Mikolaj Rydzewski
  39.     rydzew@student.uci.agh.edu.pl
  40.  
  41.  
  42.     Font Builder may be copied and distributed freely (including uploading
  43.     it to bulletin boards), providing:
  44.  
  45.     1. No fee is charged and it is not part of a package for which a charge
  46.        is made.
  47.  
  48.     2. The package is not modified in any way.